home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
role
/
TACL.lha
/
TACL
/
JungleSource.zoo
/
JungleSubs
< prev
next >
Wrap
Text File
|
1989-09-11
|
808b
|
54 lines
*
* Sample T.A.C.L. Adventure Game source code © 1989 by Kevin Kelm
*
SUBROUTINE WeHaveAWinner
T
T Congratulations. Your final score was @Score out of 113 possible points.
* Should we show a victory pic here?
EQU Temp 1
CALL Victory
WIN
ENDSUB
*
*
*
SUBROUTINE Victory * Recursively play a victory swoop!
NOTE Temp 1
ADD Temp 15
IF Temp < 520 THEN
CALL Victory
ENDIF
ENDSUB
*
*
*
SUBROUTINE BuyTheFarm
T
T You have died. Your final score was @Score out of 113 possible points.
SHOW Death
EQU Temp 500
CALL BoughtIt
DIE
ENDSUB
*
*
*
SUBROUTINE BoughtIt * Recursively play a death swoop down
NOTE Temp 1
SUB Temp 15
IF Temp > 16 THEN
CALL BoughtIt
ENDIF
ENDSUB
*
*
*
SUBROUTINE SwimAcross
EQU CrossedWater 1
EQU InConnTunn 1
GO Connecting_Tunnel
ENDSUB
*
* ----- END OF FILE
*